home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcc / v04n09 / login.prg < prev    next >
Text File  |  1991-08-09  |  433b  |  15 lines
  1. SET TALK OFF
  2. USE Log
  3. ACCEPT "Purpose for computer use? " TO why
  4. ACCEPT "<W>ork related or <P>ersonal? " TO work
  5.         IF work<>"W".AND.work<>"w"
  6.                 STORE "P" TO work
  7.                         ELSE
  8.                 STORE "W" TO work
  9.                         ENDIF
  10. APPEND BLANK
  11. REPLACE log_date WITH date(), purpose WITH why
  12. REPLACE type WITH work, time_in WITH time()
  13. * Now leave dBASE to the DOS prompt
  14. QUIT
  15.